home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / joystat / joystick.txt < prev   
Encoding:
Text File  |  1993-03-17  |  717 b   |  28 lines
  1.  
  2. Type joyinfo
  3.     wXpos As Integer
  4.     wYpos As Integer
  5.     wZpos As Integer
  6.     wButtons As Integer
  7. End Type
  8.  
  9. Type joycaps
  10.     wMid As Integer
  11.     wPid As Integer
  12.     szPName As String
  13.     wXmin As Integer
  14.     wXmax As Integer
  15.     wYmin As Integer
  16.     wYmax As Integer
  17.     wZmin As Integer
  18.     wZmax As Integer
  19.     wNumButtons As Integer
  20.     wPeriodMin As Integer
  21.     wPeriodMax As Integer
  22. End Type
  23.  
  24. Declare Function joyGetNumDevs Lib "MMSYSTEM" () As Integer
  25. Declare Function joyGetDevCaps Lib "MMSYSTEM" (ByVal wJoyID As Integer, lpJoyCaps As joycaps, ByVal wSize As Integer) As Integer
  26. Declare Function joyGetPos Lib "MMSYSTEM" (wJoyID As Integer, lpJoyInfo As joyinfo_tag) As Integer
  27.  
  28.